object FormMailList: TFormMailList
  Left = 152
  Top = 452
  AutoScroll = False
  ClientHeight = 273
  ClientWidth = 384
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {<image000.ico>}
  PopupMenu = PopupMenu
  Position = poDefault
  Scaled = False
  ShowHint = True
  Visible = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 120
  TextHeight = 16
  object ColorStringGrid: TColorStringGrid
    Left = 0
    Top = 0
    Width = 384
    Height = 254
    Hint = 'Right click for pop-up menu. Double click to view selected mail.'
    Align = alClient
    BorderStyle = bsNone
    ColCount = 6
    FixedCols = 0
    RowCount = 2
    Options = [goVertLine, goHorzLine, goColSizing, goRowSelect, goThumbTracking]
    TabOrder = 0
    OnDblClick = View
    OnGetCellColor = ColorStringGridGetCellColor
    ColWidths = (
      42
      103
      104
      64
      64
      64)
  end
  object EditPassword: TEdit
    Left = 293
    Top = 209
    Width = 28
    Height = 24
    TabStop = False
    TabOrder = 1
    Visible = False
  end
  object Socket: TSockets
    Left = 352
    Top = 8
    Width = 0
    Height = 0
    MaximumReceiveLength = 8192
    Port = '110'
    NonBlocking = False
    OnErrorOccurred = SocketErrorOccurred
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 254
    Width = 384
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object PopupMenu: TPopupMenu
    Left = 353
    Top = 209
    object PopMenuView: TMenuItem
      Caption = '&View'
      Hint = 'View selected mail.'
      ShortCut = 0
      OnClick = View
    end
    object PopMenuDelete: TMenuItem
      Caption = '&Delete'
      Hint = 'Delete selected mail.'
      ShortCut = 0
      OnClick = PopMenuDeleteClick
    end
    object PopMenuUndelete: TMenuItem
      Caption = '&Undelete'
      Hint = 'Undelete selected mail.'
      ShortCut = 0
      OnClick = PopMenuDeleteClick
    end
  end
  object BrkApart: TBrkApart
    BreakString = '='
    AllowEmptyString = False
    Left = 323
    Top = 209
  end
end